Attribute VB_Name = "modCustomButtons"

' 2008-07-01, JFW, All buttons are taken, Repeat, Modify, SaveAddr.


'---------------------------------------------------------------------------------------
'Module : modCustomButtons
'Date   : 05/11/2004
'Author : Chris Elwell
'Purpose: Contains the the subs called when a Custom Button is clicked on frmShip.
'         To use these button they must be enable in setup and the CIC must define
'         the function of each button below.
'
'         Any supporting subroutines for these buttons should also be placed here.
'---------------------------------------------------------------------------------------
Public Sub CustomButton1()

    Call frmRepeat.RepeatButton
    
End Sub
'

Public Sub CustomButton2()

    Call frmRepeat.ModifyButton

End Sub

Public Sub CustomButton3()

    If frmShip.cboCustID.Visible = True Then
        ' 2007-11-05, JFW, Sanofi, large AddressBook, test for Save and reload combos only if true
        If frmShip.SaveAddress(frmShip.cboCustID) Then
            Call LoadAddrLookupCombos(frmShip.cboCustID, frmShip.cboCustID, "CustID")
            Call LoadAddrLookupCombos(frmShip.cboContact, frmShip.cboContact, "f12")
            Call LoadAddrLookupCombos(frmShip.cboCompany, frmShip.cboContact, "f11")
        End If
    End If
                
End Sub
Public Sub CustomCTRLF1()
    'MsgBox "CTRL-F1 not coded"
End Sub
Public Sub CustomCTRLF2()
    'MsgBox "CTRL-F2 not coded"
End Sub
Public Sub CustomCTRLF3()
    'MsgBox "CTRL-F3 not coded"
End Sub
Public Sub CustomCTRLF4()
    'MsgBox "CTRL-F4 not coded"
End Sub
Public Sub CustomCTRLF5()
    'MsgBox "CTRL-F5 not coded"
End Sub
Public Sub CustomCTRLF6()
    'MsgBox "CTRL-F6 not coded"
End Sub
Public Sub CustomCTRLF7()
    'MsgBox "CTRL-F7 not coded"
End Sub
Public Sub CustomCTRLF8()
    'MsgBox "CTRL-F8 not coded"
End Sub
Public Sub CustomCTRLF9()
    'MsgBox "CTRL-F9 not coded"
End Sub
Public Sub CustomCTRLF10()
    'MsgBox "CTRL-F10 not coded"
End Sub
Public Sub CustomCTRLF11()
    'MsgBox "CTRL-F11 not coded"
End Sub
Public Sub CustomCTRLF12()
    'MsgBox "CTRL-F12 not coded"
End Sub

